100 REM--------------------------------
110 REM EINFACHE KLANGEFFEKTE
120 REM--------------------------------
130 S=54272
140 READ A,D,SU,R,C,P,F,M,FF,FR,ML
150 POKE S+5 ,16*A +D
160 POKE S+6 ,16*SU+R
170 POKE S+2 ,P AND 255
180 POKE S+3 ,P/256
190 HI=INT(F/256):LO=F-256*HI
200 POKE S   ,LO
210 POKE S+1 ,HI
220 POKE S+22,FF
230 POKE S+23,FR
240 POKE S+24,ML
250 GET A$:IF A$="" THEN 250
260 : POKE S+4,C OR 1
270 : FOR I=1 TO M:NEXT I
280 : POKE S+4,C AND 254
290 GOTO 250
300 REM--------------------------------
310 REM PARAMETER
320 DATA 0 ,10, 0,10:REM A D S R
330 DATA 16         :REM CONTROL-BYTE
340 DATA 2048       :REM PULSWEITE
350 DATA 40000      :REM FREQUENZ
360 DATA 100        :REM VERZOEGERUNG
370 DATA 50         :REM FILTERFREQUENZ
380 DATA 0          :REM FILTERRESONANZ
390 DATA 15         :REM MODUS/LAUT